00100	BEGIN
00200	REQUIRE "IODEFS[1,BLF]" SOURCE_FILE;
00300	
00400	
00500	DEFINE ITT(X,N) = "FOR X←1 STEP 1 UNTIL N DO";
00600	STRING BLANK1,BLANK10,BLANK20,DELIMSS,FORMFEED;
00700	
00800	INTEGER I, I1, J, J1, K;
00900	INTEGER NEXTL,NEXTA,LI,SSLEN,ATLEN,ERROR,IDUM,INCH1,INCH2,EOF1,EOF2;
01000	REAL R, RR, RRR;
01100	STRING S, SS, SSS,ST,SY,SV,FILENAME,SU,LASTNAME,LASTLINE,ZEROKS;
01200	FORMFEED← '14;
01300	ZEROKS←"000000000000";
01400	BLANKS←"                                                   ";
01500	BLANK1←"   ";
01600	STDBRK(INCH);
01700	DELIMSS← '15 & '12 & '40 & '11 & '14;
01800	SETBREAK(1, '12, '15 & '14, "INS");
     

00100	SS←NULL;
00200	WHILE TRUE DO BEGIN "LOOP"
00300	 SS←ASK("
00400	Would you like General, Documentation,
00500	   or Access information [G, D, or A]? ");
00600	
00700	IF EQU(SS,"g") OR EQU(SS,"G") THEN 
00800	  SAY("
00900		Parry is one of the belief system models
01000	implemented by the Higher Mental Functions project at
01100	Stanford University and at the University of California at
01200	Los Angeles.
01300	
01400		Parry itself is a model of a paranoid patient who
01500	is interviewed by a clinician in a first diagnostic interview
01600	by teletype.  The model is available for demonstration purposes
01700	over the ARPA net.  For access information, type A to this program.
01800	For documentation information, type D.
01900	 ");
02000	
02100	IF EQU(SS,"d") OR EQU(SS,"D") THEN SAY("
02200	INFORMATION ON THE INTERNAL WORKINGS OF PARRY IS CONTAINED IN 
02300	THE 2 STANFORD AI MEMOS: AIM234 AND AIM253.
02400	THESE MAY BE ORDERED FROM:
02500		DOCUMENTATION SERVICES
02600		ARTIFICIAL INTELLIGENCE LABORATORY
02700		STANFORD UNIVERSITY
02800		STANFORD, CALIFORNIA  94305
02900	");
03000	
03100	IF EQU(SS,"a") OR EQU(SS,"A") THEN   SAY("
03200	Sept. 1, 1976
03300	
03400		A new pathological belief systems model will
03500	be available soon at the SUMEX-AIM facility.
03600	The model will require extensive testing by persons not
03700	directly associated with the project.  If you would like to
03800	participate in interviewing the model, send the following
03900	information to FAUGHT at SUMEX (or SUMX) (ARPA host no 56):
04000	  Your name
04100	  Your work or home address
04200	  Your ARPA-net mailing address
04300	  A brief (3 lines or less) serious explanation as to your interest
04400	in interviewing psychological models (required documentation for
04500	GUESTs at SUMEX).
04600	
04602	  Note:  I can't give you access unless you send ALL of
04604	the above information.
04606	
04700		Send the above info in one message with nothing else.
04800	Send comments or questions in a separate message.
04900	
05000		A number of people will be selected and the password for
05100	using the GUEST account at SUMEX will be sent to them (via
05200	their ARPA mailboxes).
05202	
05204		(For people logged into TIPs, having no ARPA
05206	mailboxes, send the above info to BLF at SAIL (this machine),
05208	and a self-addressed stamped envelope to:  Bill Faught,
05210	12333 Texas Ave. #17, Los Angeles, Cal  90025.)
05300	
05400	 ");
05500	END "LOOP" ;
05600	
05700	SAY(" ");
05800	IF EQU(SS,"SSSSSXXXXX") THEN BEGIN "D"
05900	FILENAME←ASK("FILIN="); FILIN(FILENAME); 
06000	SS←ASK("FILOUT="); FILOUT(SS);
06100	
06200	WHILE NOT EOF DO  BEGIN "MERGE"
06300	
06400	END "MERGE" ;
06500	RELEASE(OUCH); RELEASE(INCH);
06600	END "D" ;
     

00100	    	COMMENT END OF PROGRAM;
00200	END;